From f371ffa69938adf38e62c855fc5a2c44a4e832a6 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 19 May 2009 01:28:13 +0000 Subject: [PATCH] (set-face-attribute): Fix handling of :family "FOUNDRY-FAMILY". --- lisp/faces.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/faces.el b/lisp/faces.el index 778a363b170..57d6bd7dcb3 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -725,8 +725,8 @@ like an underlying face would be, with higher priority than underlying faces." (when (and (stringp family) (string-match "\\([^-]*\\)-\\([^-]*\\)" family)) (unless foundry - (setq foundry (match-string 2 family))) - (setq family (match-string 1 family))) + (setq foundry (match-string 1 family))) + (setq family (match-string 2 family))) (when (stringp family) (internal-set-lisp-face-attribute face :family (purecopy family) where)) -- 2.30.2